home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / TileForth / install2 < prev    next >
Encoding:
Text File  |  1995-11-24  |  1.2 KB  |  54 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro  "Wilkommen zum Installer-Script für TileForth")
  4.         (SET Where  "Wohin soll das TileForth Packet hinkopiert werden ? Es wird ein Verzeichnis Namens TileForth angelegt")
  5.         (SET Addit  "Es werden nun noch ein paar Zeilen zu s:user-startup hinzugefügt")
  6.     )
  7. )
  8.  
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro  "Welcome to the installer-script for TileForth")
  12.         (SET Where  "Where do you want to place the TileForth package ? A drawer called TilrForth will be created ")
  13.         (SET Addit  "Some additions to s:user-startup will be made")
  14.     )
  15. )
  16.  
  17. (MESSAGE Intro)
  18.  
  19. (SET    Wuck
  20.     (ASKDIR
  21.         (PROMPT Where)
  22.         (HELP   "")
  23.         (DEFAULT    "sys:")
  24.     )
  25. )
  26.  
  27. (SET BinDest (TACKON Wuck "TileForth"))
  28.  
  29. (RUN (CAT "makedir \""BinDest"\""))
  30.  
  31. (COPYFILES
  32.     (SOURCE ":Dev/TileForth/")
  33.     (DEST   BinDest)
  34.     (ALL)
  35.     (INFOS)
  36. )
  37.  
  38. (STARTUP    @app-name
  39.     (COMMAND    (cat   "assign c: \""(TACKON BinDest "bin")"\" Add \n"
  40.                        "assign tile: \""BinDest"\" \n"
  41.                 )
  42.     )
  43.     (PROMPT Addit)
  44.     (HELP   "")
  45. )
  46.  
  47. (RUN (cat   "assign c: \""(TACKON BinDest "bin")"\" Add \n"
  48.                        "assign tile: \""BinDest"\" \n"
  49.      )
  50. )
  51.  
  52.  
  53.  
  54.